home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / squ.tec < prev    next >
Text File  |  1991-07-11  |  5KB  |  81 lines
  1. !SQU.TEC V40.00!@F0ED0ET&128"N0,0XP'0,128ETJ<@FS%^ES%%;>J:S/UB
  2. QB"TET&64"E
  3. ''@R\[0[1[2[3+0U3X0K.U1ZJ.U2Q3&127"R|
  4. ?Invalid Q-register in INPLIN
  5. OEXIT'IQ2,.XQ3&127IQ2,.X1Q2,.K!PROMPT!13ET&512"N0,1ET271,0ET
  6. 0:W-4"E['J|10'.-Q2+(0)"G0T|:G0Q2,ZT'!GETCH!U0Q0-127"EZ-Q2"N-D'
  7. OPROMPT'Q0-21"EQ2,ZKOPROMPT'Q0-18"E1310:G0Q2,ZTOGETCH'Q0-26"E
  8. Q2,ZK%0'Q0-27"E1310ODONE'Q3&128"EQ0-10"E13ODONE'Q0-13"EODONE'
  9. 'Q0IOGETCH!DONE!M1Q2,.K!EXIT!Q1J]3]2]1]0\0,0X9J:@FS%/D%%"S
  10. ::@FS%:%%"S0AQD|QY'|QB"TQ|IDelete CR/LF (Y/N) <N>? QMR''0QQ"A
  11. 0QQ&95-Y"E9DA.......TD..D.......U....Z...V.D''!BADNUM!0UO:Q9"NJ
  12. :@FS%/L%%"S%/L specified with /D, /L ignored
  13. ::@FS%:%%"S0A"D<D.-Z;0A"D>'|D'''|J:@FS%/L%%"S::@FS%:%%"S0AQA"D<D
  14. .-Z;0A"D0A:Q>'|D'|QY'|QB"TQ|
  15. ISet line lengths (Y for 70, N, or length) <N>? QMR''0QQ"A
  16. 0QQ&95-Y"E9DA.......TO..O.......U....Z...V.OUO''0QQ"D.UQZJGQC\UO
  17. D.-Z"NZKQQJOBADNUM'QQJQO"EOBADNUM'
  18. 9DA.......TO..O.......U....Z...V.O'':Q9"NJ:@FS%/B%%"S::@FS%:%%"S
  19. 0A-N"E%/B:N specified with /D or /L, /B:N ignored
  20. 'D''|J:@FS%/B%%"S::@FS%:%%"S0AQD|QY'|QB"TQ|
  21. IDelete blank lines (Y/N) <N>? QMR''0QQ"A0QQ&95-Y"E
  22. 9DA.......TB..........U....Z...V.D''':Q9"E
  23. 9DA.......T...........U....Z...V.D'J:@FS%/T%%"S::@FS%:%%"S0AQD|
  24. QY'|QB"TQ|IDelete lexical TABs and FORM FEEDs (Y/N) <N>? QMR''
  25. 0QQ"A0QQ&95Q'0QQ-Y"EJG99JDIOJDIOJ0,33X90,33K'CJ:@FS%/C%%"S
  26. ::@FS%:%%"S0AQD|QY'|QB"TQ|
  27. IDelete comments (Y for SP/TAB, N, or set) <N>? QMR'':QQ"EQN'0QQUQ
  28. QQ"VQQ-32UQ'QQ-N"E:9A|:9CQQ-Y"E32C:C|GQXCK''
  29. :91..1..........................:9@....EF1.$...1$$.1.$.1..1..1.1^$ 
  30. :9.LLLLLLLLLLLLLLLLLLLLLLLLLL....D8/#*&\?()$!@U8126<Q8:8%8>W 
  31. ET&512"EJ:@FS%/W%%"S::@FS%:%%"SD''|J:@FS%/W%%"S::@FS%:%%"S0AQD|QY'
  32. |QB"TQ|IWatch progress (Y/N) <N>? QMR''0QQ"A0QQ&95-Y"E0:W-2"E
  33. 4,0:W'W-1W'''KJ:@FS%/A%%"S::@FS%:%%"S0AQD|QY'|QB"TQY|
  34. IAutomatic mode (Y for %, N, or set) <N>? QMR'':QQ"N0QQUQQQ"VQQ-32UQ
  35. 'QQ-N"NQQ-Y"E%K|GQXKK'''0UHJ:@FS%/E%%"S::@FS%:%%"S0AQD|QY'|
  36. QB"TQ|IAllow adjacent ESCapes (Y/N) <N>? QMR''0QQ"A0QQ&95-Y"E-1UH
  37. ''@Z*[10U1:QW"N-1,3:W,4:W,5:W'<!..!MW!.!ME;0AU0Q0"LOOFFEND'C
  38. Q0&128"NQ0&127U0-DQ0I'!DISP!Q0Q90O^EQ0!L!Q0-32U0-DQ0IODISP!^!
  39. 0A&31U0C-2DQH"FQ0-27"E0A-27"EI^[CO..'.US0UT<-.;R0AUTQT&128"EQT-10"N
  40. 0;|-.;-1A-128-13"N0;'''>QSJQT-27"EI '''Q0IODISP!B!-1+2"E-2D'O.. 
  41. !O!-D."N-1A&128"N-D'.-1"G-1A-10"E-2A-128-13"EQ0-13"E-2D|O..''''
  42. Q0#128IQ0-13"E.-Z"E10IR'0A&127-10"ED'10I''O..!U!271.UC0AU0C
  43. Q0-."E0AU0C'Q0"VQ0-32U0-DQ0I'Q1"T0A-(1A)"EO$$'|0A-27"EO$$''.USQ1"T
  44. 0A1D':QW"N:S^EQ1"UOSTRINGFAIL'.,4:WQSJMW':QK"E:QW"E0T10T'7ETUQ
  45. ET#8#4-4ETU0QQET|G1R::S^EGK"S-DNU0|DYU0'':QW"N0,4:W68W'Q0-Y"E
  46. [E[C[SE-1UE0A-^^Q1:E:E"E0UE'QEMZ]S]C]E"NOPRIORFAIL'CO$$$$'
  47. O$$$!T!0U1!$!271.UC!$$!.USQ1"T0A1D'!$$$!:S^EQ1"UOSTRINGFAIL'
  48. !$$$$!-D.UT27U0!AA!Q00QT-QS"GQSJ.,.+QT-QS:FB^EQ0"SG8:X1K0U0<
  49. Q0Q10QSJ.,.+QT-QSFB^EQ0%0-:Q8"EONOQUOTE'>Q0Q1U0QSJQ0IQC-1JI@ 
  50. 2%T''QTJQ0IU1O..!1!0A-."EC'0A"V0A-32U0DQ0IO.'!V!CO.!@!-1U1!D!
  51. -DO.!F!271.UC0AU0CQ0"VQ0-32U0-DQ0I'Q0-B"EO$$'Q0-C"EOF$$'
  52. Q0-R"EO$$'Q0-S"EOF$$'Q0-N"EOF$$'Q0-_"EOF$$'O.!F$$!.US271 
  53. Q1"T0A1D':S^EQ1"UOSTRINGFAIL'-D.UT:S^EQ1"UOSTRINGFAIL'-D.UUQH"T
  54. 27U0Q00QU-QS"GQSJ.,.+QU-QS:FB^EQ0"UOF0'|OF0'|QU-QT"G27U0Q00QSJ
  55. .,.+QU-QS:FB^EQ0"UOF0'''G8:X1K0U0<Q0Q10QSJ.,.+QU-QSFB^EQ0
  56. %0-:Q8"EONOQUOTE'>Q0Q1U0QSJQ0IQC-1JI@%T%U!F0!QTJQ0IQU-QTCQ0I 
  57. 0U1O..!A!Q01.UC.USQ1"T0A1D':S^EQ1"UOSTRINGFAIL'-D.UTOAA!C!
  58. ::S^EGC"UOA'R.UCQ01Q1"T0A1D':S^EQ1"UOSTRINGFAIL'QC-1,.K0U1O.. 
  59. !E!271.UC0AU0CQ0"VQ0-32U0-DQ0I'Q0-B"EO$$'Q0-G"EO$$'Q0-I"EO$$'
  60. Q0-N"EO$$'Q0-R"EO$$'Q0-W"EO$$'Q0-_"EO$$'O.!Z!-DI^ZO..>Q1"T
  61. 1Trailing, pending @OERROR'0U10"N!OFFEND!
  62. 1End of buffer while sub-squishingOERROR!NOQUOTE!
  63. 1Can't find a quote characterOSETPOS!PRIORFAIL!
  64. 1Prior recursion level failedOSETPOS!STRINGFAIL!
  65. 1Unterminated string!SETPOS!:1 from squished .=QC\:X1K13:1 
  66. 10:1QCJ0+.,.:X1|:1:1|:1.,+.:X1!ERROR!ZJMW0,0XW7?:G17
  67. 1310-1U1'Q1]1*@A*-1E.-ZQO"NZJI 'JMZ"EQO"N:QW"N-1,3:W,4:W 
  68. 0,5:W'J<MW<0A&128"N0;'C>0A&127-13"ED'D.-Z;.U0<0A&128"N0;'C><.U10L
  69. .-Q0-1"L0;'R>Q1J-(0)-QO"GQ0J-1A-27"EI 'I
  70. '><ZJ-Z;-1A-10"N-1A-13"N-1A-32"N0;'''-D>MW'QH"FZJ."E10I'-1A-10"N10I 
  71. 'R."E13I'-1A-13"N13I''ZJ:QW"N0:W-4"E2,0:W'-1,3:W,4:WMW'|
  72. ?Squish run failed; aborting any output
  73. 0,0XF'0*Z"EIFile <.TES or .TEC>? QMRGQ'0,0XR0,0XQEIMF0,0XFZ"E
  74. Enter your macro then type MA$$
  75. |J:@FS%=%%"SFEW,.:XF.UF-:S."U:F.TEC'QFJ27:FQB"TET&64"E:F
  76. Creating ":G*"
  77. ''0,.K'J:S."UZJI.TESHXQ:ER^EQQ"U-FS.TES.TEC''HXQHKER^EQQQB"T
  78. ET&64"ESquishing ":G*"
  79. '':QF"EY128,0ET<"TZJ12I':A;>MAMP|YQB"F128,0ET'"T"TZJ12I'MAMFHPW
  80. HK|MF<"TZJ12I'MAHPWHK:Y;>'EFEX''
  81.